home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
TPUG - Toronto PET Users Group
/
TPUG Users Group CD
/
TPUG Users Group CD.iso
/
C64
/
A-Monthly Disks
/
(c)aah.d64
/
paul's escape
(
.txt
)
< prev
next >
Wrap
Commodore BASIC
|
2007-02-04
|
9KB
|
258 lines
1 REM(null)(null)
2 REM(null)(null)
3 POKE775,191:REM
4 REM(null)(null)
5 POKE775,191:REM
7 REM(null)(null)
8 PRINTCHR$(8):PRINTCHR$(14):NU=0:PO=80
9 DIMST$(36):DIMQU$(20):DIMAN$(20):DIMAO$(20):DIMAP$(20):DIMIN$(8):DIMQW$(20)
10 POKE53265,PEEK(53265)AND239:GOSUB800:GOSUB300:GOSUB1300:GOSUB1400:GOSUB1500
11 PRINT"[155] [211][193][213][204]'[211][160][197][211][195][193][208][197][160][198][210][207][205][160][196][193][205][193][211][195][213][211] ":REM(null)(null)
12 PRINTSPC(11)"BY [211]TEVE [215]ILLIAMS":PRINT"":FORX=1TO8:PRINT"[149]"IN$(X):NEXTX
13 PRINT"[196]O YOU WANT TO REVIEW THE [194]IBLE STORY?"
14 PRINT"[217]ES OR [206]O? (Y/N)"
15 POKE53265,PEEK(53265)OR16:POKE198,0
16 GETA$:IFA$=""THEN16
17 IFA$="[217]"ORA$="Y"THEN20:REM(null)(null)
18 IFA$="N"ORA$="[206]"THEN30
19 GOTO16
20 FL=1:POKE53265,PEEK(53265)AND239:GOSUB300:POKE53265,PEEK(53265)OR16
21 TM=1:GOTO23
22 TM=TM+6:IFTM=>37THEN30:REM(null)(null)
23 PRINT"[159]":FORX=TMTO(TM+5):PRINTST$(X):PRINT:NEXTX:GOSUB250:POKE53280,CO
24 PRINT"*** [208]RESS SPACE BAR TO CONTINUE ***"
25 LD=LD+1:PRINT""SPC(16)"[208]AGE "LD:POKE198,0
26 GETA$:IFA$=""THEN26
27 IFA$=CHR$(32)THEN22
28 GOTO25
30 POKE53280,0:FL=0:POKE53265,PEEK(53265)AND239:GOSUB300:GOSUB100:GOSUB95
31 GOSUB480:POKE53265,PEEK(53265)OR16
32 GOSUB600:GOSUB500:NT=NT+1:POKE198,0
34 GETJ$:IFJ$=""THEN34
35 IFJ$=""ORJ$="[145]"ORJ$=""ORJ$="[157]"ORJ$=CHR$(20)THENPOKE198,0:GOTO34
36 IFJ$="A"ORJ$="[193]"ORJ$="B"ORJ$="[194]"THEN38
37 POKE198,0:GOTO34
38 IFJ$=AP$(NU)THENCA=CA+1:GOSUB480:GOSUB88:IFCA=>14THENGOSUB1100:GOSUB600:GOTO2000
39 IFJ$<>AP$(NU)THENPRINT"[155][211]ORRY. [212]HAT IS WRONG.":GOSUB89
41 IFNT=>17THEN60
43 GOTO32
60 PRINT"[211]ORRY. [212]IME IS UP.":GOSUB89:GOTO3000
80 GOTO3000
88 FORT=1TO200:NEXTT:RETURN
89 FORT=1TO800:NEXTT:RETURN
90 FORX=1TO20:PRINT"":NEXTX
95 PRINT"";:PRINT"":FORY=1TO5:PRINT"";:NEXTY
96 FORZ=1TODW:PRINT"";:NEXTZ:PRINT"[149][221]":DW=DW+1:RETURN
97 PRINT"";:FORX=1TO3:PRINT"":NEXTX:FORX=1TO8:PRINT"";:NEXTX
100 V=53248:POKE2040,13:FORX=0TO62:READJ:POKE832+X,J:NEXTX:REM(null)(null)
101 POKEV+39,9:POKEV+37,1:POKEV+38,6
102 POKEV+28,29:POKEV+0,57:POKEV+1,PO
105 POKE2041,14:FORX=0TO23:POKE896+X,0:NEXTX:REM(null)(null)
106 X=0:FORY=0TO12:X=X+1:POKE920+X,0:X=X+1:POKE920+X,48:X=X+1:POKE920+X,0:NEXTY
107 POKEV+40,9:POKEV+2,49:POKEV+3,(PO-20)
108 POKEV+21,3
110 DATA 0,32,0,0,136,0
120 DATA 0,136,0,2,2
130 DATA 0,2,2,0,8
140 DATA 0,128,8,32,128
150 DATA 32,152,32,32,152
160 DATA 32,128,16,8,128
170 DATA 48,8,128,252,8
180 DATA 163,255,40,170,170
190 DATA 168,170,170,168,42
200 DATA 170,160,42,170,160
210 DATA 10,170,128,2,170
220 DATA 0,2,170,0,0,168,0
224 RETURN
250 CB=CB+1:REM(null)(null)
251 IFCB=1THENCO=0
252 IFCB=2THENCO=5
253 IFCB=3THENCO=6
254 IFCB=4THENCO=0
255 IFCB=5THENCO=5
256 IFCB=6THENCO=6
260 RETURN:REM(null)(null)
300 PRINT"[147]":POKE53280,0:POKE53281,0
302 PRINT"";:FORX=1TO80:PRINT" ";:NEXTX
304 FORX=1TO39:PRINT"[182]";:NEXTX:PRINT" ";
305 IFFL=1THENFORX=1TO17:PRINT:NEXTX:GOTO314
306 PRINT"";:FORX=1TO17:PRINT"[146][165][157]";:NEXTX
308 PRINT"[157]";:FORX=1TO17:PRINT"[146][167][157]";:NEXTX:PRINT"[145]"
314 FORX=1TO199:PRINT" ";:NEXTX:PRINT""
315 POKE2023,224:POKE56295,5:RETURN
480 FORX=1TO8:POKEV+1,(PO+X):POKEV+3,(PO+X-20):FORT=1TO50:NEXTT:IFX=6THENGOSUB95
481 NEXTX:PO=PO+8:RETURN
500 NU=NU+1:NW=NW+1:IFNU=>18THENNU=1
501 PRINT""SPC(15)"[159][209]UESTION #"NW
502 PRINT"[149]"QU$(NU)
503 PRINT""QW$(NU)
504 PRINT"";:PRINT"[159][193][146] "AN$(NU):PRINT"[159][194][146] "AO$(NU)"[149]"
506 RETURN
600 PRINT" ":REM(null)(null)
602 FORX=1TO4:GOSUB604:NEXTX:GOTO606
604 PRINT" ":RETURN
606 IFCA=>14THENPRINT" "
607 RETURN
620 RETURN
800 ST$(1)="[211]AUL, LATER KNOWN AS [208]AUL, WAS NOT A "
801 ST$(2)="FRIEND OF THE CHURCH AT FIRST. [201]N FACT "
802 ST$(3)="HE PERSECUTED THE CHURCH. "
803 ST$(4)="[200]E TRAVELED TO [196]AMASCUS IN ORDER TO "
804 ST$(5)="ARREST [195]HRISTIANS. [193]S HE WAS TRAVELING ":REM(null)(null)
807 ST$(6)="A BRIGHT LIGHT FLASHED ABOUT HIM. "
808 ST$(7)="[202]ESUS SPOKE TO HIM AND ASKED WHY HE WAS"
809 ST$(8)="PERSECUTING HIM. [194]Y PERSECUTING THE "
810 ST$(9)="CHURCH [211]AUL WAS PERSECUTING [202]ESUS. "
811 ST$(10)="[211]AUL WAS TOLD TO GO INTO [196]AMASCUS AND "
812 ST$(11)="HE WOULD BE TOLD WHAT HE MUST DO TO BE "
813 ST$(12)="SAVED AND MAKE THINGS RIGHT WITH [199]OD. "
814 ST$(13)="[193]NANIAS, A [195]HRISTIAN IN [196]AMASCUS, WAS "
815 ST$(14)="TOLD BY [199]OD TO GO VISIT [211]AUL. [200]E WAS "
816 ST$(15)="AFRAID BUT HE OBEYED [199]OD AND WENT. "
817 ST$(16)="[200]E PREACHED TO [211]AUL AND TOLD HIM THE "
818 ST$(17)="TRUTH ABOUT [202]ESUS. [211]AUL BELIEVED AND "
819 ST$(18)="WAS BAPTIZED ([193]CTS 9:18). "
822 ST$(19)="[211]AUL ([208]AUL) SURPRISED EVERYONE IN THE "
823 ST$(20)="TOWN OF [196]AMASCUS BY PREACHING IN THE "
824 ST$(21)="SYNAGOGUES THAT [202]ESUS IS [199]OD'S SON! "
826 ST$(22)="[212]HIS COMPLETE CHANGE OF DIRECTION IN "
827 ST$(23)="[211]AUL'S LIFE AMAZED EVERYONE, BUT SOME "
828 ST$(24)="WERE ANGRY AT [211]AUL FOR THIS. "
830 ST$(25)="[194]ECAUSE [208]AUL WAS SO POWERFUL IN HIS "
831 ST$(26)="ABILITY TO PROVE THAT [202]ESUS WAS THE "
832 ST$(27)="[195]HRIST, SOME [202]EWS WANTED TO KILL [211]AUL. "
834 ST$(28)="[212]HEY PLOTTED [211]AUL'S MURDER, BUT THE "
835 ST$(29)="PLOT WAS UNCOVERED AND [211]AUL WAS WARNED "
836 ST$(30)="OF THEIR EVIL INTENTIONS ([193]CTS 9:24). "
838 ST$(31)="[212]HE [202]EWS WERE WATCHING THE GATES OF THE"
839 ST$(32)="CITY IN ORDER TO CATCH AND KILL [211]AUL. "
840 ST$(33)="[211]AUL HAD ANOTHER WAY OF ESCAPE THOUGH. "
842 ST$(34)="[200]IS DISCIPLES LET HIM DOWN OVER THE "
843 ST$(35)="CITY WALL IN A BASKET. [200]E ESCAPED AND "
844 ST$(36)="PREACHED [202]ESUS FOR A LONG TIME. "
848 IN$(1)="[201]N THIS GAME YOU MUST HELP [208]AUL ([211]AUL)"
849 IN$(2)="ESCAPE [196]AMASCUS BY LETTING HIM OVER"
850 IN$(3)="THE WALL IN A BASKET."
852 IN$(4)="[215]HEN YOU ANSWER A QUESTION CORRECTLY,"
853 IN$(5)="[208]AUL IS LOWERED A FEW FEET. [201]F YOU ARE"
854 IN$(6)="WRONG, [208]AUL CANNOT MOVE! [217]OU MUST GET"
855 IN$(7)="14 ANSWERS CORRECT OUT OF 17 QUESTIONS"
856 IN$(8)="TO SAVE [211]AUL AND SEE HIM RUN AWAY."
1000 RETURN
1100 POKE2042,15:FORX=0TO62:READJ:POKE960+X,J:NEXTX
1101 POKEV+41,9:REM(null)(null)
1102 POKEV+4,57:POKEV+5,PO
1110 DATA 0,32,0,0,136,0
1120 DATA 0,136,0,2,2
1130 DATA 0,2,2,0,8:REM(null)(null)
1140 DATA 0,128,8,0,128
1150 DATA 32,0,32,32,0
1160 DATA 32,128,0,8,128
1170 DATA 0,8,128,0,8
1180 DATA 128,0,40,170,170
1190 DATA 168,170,170,168,42
1200 DATA 170,160,42,170,160
1210 DATA 10,170,128,2,170
1220 DATA 0,2,170,0,0,168,0
1224 RETURN
1300 QU$(1)="[212]O WHAT WAS [211]AUL'S NAME LATER":QW$(1)="CHANGED?"
1302 QU$(2)="[215]HY WAS [211]AUL NOT CONSIDERED A":QW$(2)="FRIEND OF THE CHURCH?"
1304 QU$(3)="[212]O WHAT TOWN WAS [211]AUL TRAVELING"
1305 QW$(3)="IN ORDER TO ARREST [195]HRISTIANS?"
1306 QU$(4)="[215]HAT HAPPENED TO [211]AUL ON THE":QW$(4)="ROAD NEAR TO [196]AMASCUS?"
1308 QU$(5)="[215]HO SPOKE TO [211]AUL AS THE BRIGHT":QW$(5)="LIGHT WAS SHINING ON HIM?"
1310 QU$(6)="[194]Y PERSECUTING THE CHURCH [211]AUL":QW$(6)="WAS PERSECUTING WHOM?"
1312 QU$(7)="[215]HO CAME TO VISIT [211]AUL TO TEACH":QW$(7)="HIM THE GOSPEL?"
1314 QU$(8)="[211]AUL BELIEVED THE GOSPEL ABOUT":QW$(8)="[202]ESUS AND THEN DID WHAT?"
1316 QU$(9)="[211]AUL THEN WENT WHERE TO PREACH":QW$(9)="THAT [202]ESUS WAS [199]OD'S [211]ON?"
1318 QU$(10)="[215]HAT WAS THE REACTION OF MOST"
1319 QW$(10)="PEOPLE TO THIS CHANGE IN [211]AUL?"
1320 QU$(11)="[211]OME PEOPLE WERE VERY ANGRY AT":QW$(11)="[211]AUL FOR PREACHING [202]ESUS."
1322 QU$(12)="[215]HAT DID SOME OF THE [202]EWS PLAN":QW$(12)="CONCERNING [208]AUL?"
1324 QU$(13)="[208]AUL NEVER FOUND OUT ABOUT THIS":QW$(13)="PLOT AGAINST HIS LIFE."
1326 QU$(14)="[215]HERE DID THE [202]EWS WAIT TO TRY":QW$(14)="TO CATCH [211]AUL?"
1327 QU$(15)="[200]OW DID [208]AUL ESCAPE FROM THE":QW$(15)="CITY OF [196]AMASCUS?"
1328 QU$(16)="[193]FTER ESCAPING [208]AUL PREACHED":QW$(16)="[202]ESUS FOR A LONG TIME."
1330 QU$(17)="[198]ROM WHAT CHAPTER WAS OUR":QW$(17)="LESSON TAKEN?"
1390 RETURN
1400 AN$(1)="[208]AUL":AO$(1)="[202]OHN":AN$(2)="[200]E BURNED [194]IBLES."
1402 AO$(2)="[200]E PERSECUTED THE CHURCH.":AN$(3)="[202]ERICHO":AO$(3)="[196]AMASCUS"
1404 AN$(4)="[193] BRIGHT LIGHT BLINDED HIM.":AO$(4)="[200]E FELL AND BROKE HIS LEG."
1406 AN$(5)="[202]ESUS":AO$(5)="[199]ABRIEL, THE ANGEL."
1408 AN$(6)="[212]HE [199]ENTILES.":AO$(6)="[202]ESUS HIMSELF."
1410 AN$(7)="[193]NANIAS.":AO$(7)="[194]ARNABAS."
1412 AN$(8)="[212]OOK THE [204]ORD'S [211]UPPER.":AO$(8)="[215]AS BAPTIZED."
1414 AN$(9)="[212]HE MARKET PLACE.":AO$(9)="[212]HE SYNAGOGUES."
1416 AN$(10)="[201]T MADE THEM SAD.":AO$(10)="[212]HEY WERE SURPRISED."
1418 AN$(11)="[212]RUE.":AO$(11)="[198]ALSE."
1420 AN$(12)="[200]IS DEATH.":AO$(12)="[193] BIRTHDAY PARTY."
1422 AN$(13)="[212]RUE.":AO$(13)="[198]ALSE."
1424 AN$(14)="[193]T HIS DOORSTEP.":AO$(14)="[193]T THE CITY GATES."
1426 AN$(15)="[212]HROUGH A SECRET TUNNEL.":AO$(15)="[201]N A BASKET OVER THE WALL."
1428 AN$(16)="[212]RUE.":AO$(16)="[198]ALSE."
1430 AN$(17)="[193]CTS 9":AO$(17)="[193]CTS 19"
1490 RETURN
1500 AP$(1)="A"
1502 AP$(2)="B"
1503 AP$(3)="B"
1504 AP$(4)="A"
1505 AP$(5)="A"
1506 AP$(6)="B"
1507 AP$(7)="A"
1508 AP$(8)="B"
1509 AP$(9)="B"
1510 AP$(10)="B"
1511 AP$(11)="A"
1512 AP$(12)="A"
1513 AP$(13)="B"
1514 AP$(14)="B"
1515 AP$(15)="B"
1516 AP$(16)="A"
1517 AP$(17)="A"
1590 RETURN
2000 POKE2043,195:FORX=0TO62:READA:POKE12480+X,A:NEXTX:POKEV+42,9:POKEV+43,9
2001 POKE2044,196:FORX=0TO62:READA:POKE12544+X,A:NEXTX
2002 POKEV+7,PO:POKEV+9,PO:PP=59:UI=4
2004 FORTG=1TO24:GOSUB2009:GOSUB2008:NEXTTG
2005 GOSUB2009:POKEV+16,24:POKEV+8,0:GOTO2100
2006 POKEV+6,(PP+UI):PP=PP+UI:FORT=1TO25:NEXT:RETURN
2007 POKEV+8,(PP+UI):PP=PP+UI:FORT=1TO25:NEXT:RETURN
2008 GOSUB2006:POKEV+21,14:RETURN
2009 GOSUB2007:POKEV+21,22:RETURN
2010 DATA 0,40,0,0,36,0
2011 DATA 0,36,0,0,16
2012 DATA 0,0,48,0,0
2013 DATA 241,0,0,212,0
2015 DATA 1,240,0,4,240
2018 DATA 0,0,240,0,0
2021 DATA 240,0,0,160,0
2024 DATA 0,160,0,0,160
2027 DATA 0,2,160,0,10
2030 DATA 32,0,8,32,0
2033 DATA 0,32,0,0,32
2036 DATA 0,0,0,0,0,0,0
2039 DATA 0,40,0,0,36,0,0,36
2042 DATA 0,0,16,0,0
2045 DATA 48,0,0,240,0
2048 DATA 0,112,0,0,116
2051 DATA 0,0,112,0,0
2054 DATA 84,0,0,240,0
2057 DATA 0,160,0,0,160
2060 DATA 0,0,160,0,0
2063 DATA 136,0,0,136,0
2066 DATA 0,136,0,0,136
2069 DATA 0,0,136,0,0
2072 DATA 0,0,0,0,0
2100 UI=4:PP=0:FORTG=1TO12:GOSUB2008:GOSUB2009:NEXTTG
3000 PRINT"[147]":POKEV+21,0:PRINT"[215]ANT TO PLAY AGAIN? (Y/N)":POKE198,0
3001 PRINT" OR RETURN TO BIBLE GAMES MAIN MENU (M)"
3002 GETA$:IFA$=""THEN3002
3003 IFA$="N"ORA$="[206]"THENEND
3004 IFA$="Y"ORA$="[217]"THEN3005
3005 IFA$="M"ORA$="[205]"THEN4000
3006 GOTO3002
3009 RESTORE
3010 GOTO10
4000 POKE198,4:PRINT"[147]LOAD"CHR$(34)"BIBLE MENU"CHR$(34)",8";
4002 POKE631,13:POKE632,82:POKE633,117:POKE634,13:END